100 CK=56328:SA=49155:REM SA IS ML STARTING ADDRESS
110 FORI=SATOSA+151:READA:X=X+A:POKEI,A:NEXTI
120 IFX<>16817THENPRINT"ERROR IN DATA STATEMENTS.":STOP
130 PRINT"[147]":A=SA+137:POKESA+13,A-INT(A/256)*256:POKESA+14,INT(A/256)
140 POKESA+145,A-INT(A/256)*256:POKESA+146,INT(A/256)
150 POKESA+36,SA-INT(SA/256)*256:POKESA+37,INT(SA/256)
160 PRINT"TODAY'S DATE (MM/DD/YY, IE. 07/01/85)":INPUT DA$
170 IFLEN(DA$)<>8THENPRINT"ERROR IN DATE ENTRY. TRY AGAIN!":GOTO160
180 PRINT"PRESENT TIME (HHMM FORMAT, IE. 0935)":INPUTTM$
190 IFLEN(TM$)=4ANDVAL(TM$)<=1259THEN210
200 PRINT"ERROR IN TIME ENTRY. TRY AGAIN!":GOTO180
210 PRINT:INPUT"AM OR PM (A[146]/P[146])";A$:IF A$<>"A" AND A$<>"P" THEN 210
220 TM$=TM$+"00":B=0:IF A$="P" THEN B=128
230 PRINT"[147]TODAY'S DATE: ";DA$:PRINT
240 PRINT"PRESENT TIME: ";LEFT$(TM$,2);":";MID$(TM$,3,2);" ";A$;"M"
250 PRINT:PRINT:INPUT"ARE THESE CORRECT (Y/N)  Y[157][157][157]";A$
260 IFA$="N"THENPRINT"[147]":GOTO160
270 FORT=1TO8:POKESA+T,ASC(MID$(DA$,T,1)):NEXTT:IFLEFT$(TM$,2)="12"THENB=128-B
280 FORA=1TO5STEP2:D=VAL(MID$(TM$,A,1)):D=D*16+VAL(MID$(TM$,A+1,1))
290 IFA=1THEND=DORB
300 POKECK+3-(A-1)/2,D:NEXTA:POKECK,0
310 POKESA+142,PEEK(818):POKESA+143,PEEK(819)
320 REM GET ISAVE VECTOR ADDR AND SAVE TO EXIT IN ML
330 A=SA+15:POKE818,A-INT(A/256)*256:POKE819,INT(A/256)
340 REM POINT ISAVE VECTOR TO START OF ML
350 POKESA+150,PEEK(774):POKESA+151,PEEK(775)
360 REM GET IQPLOP (LIST) VECTOR ADDR AND SAVE TO EXIT IN ML
370 A=SA+11:POKE774,A-INT(A/256)*256:POKE775,INT(A/256)
380 REM POINT IQPLOP (LIST) VECTOR TO START OF ML
390 NEW
400 DATA 32,48,48,47,48,48,47,48,48,32,0
410 DATA 8,238,197,3,72,138,72,152,72,162,0
420 DATA 160,4,177,43,201,143,208,102,200
430 DATA 177,43,240,97,189,60,3,240,5,145
440 DATA 43,232,208,241,162,2,177,43,240
450 DATA 78,189,9,220,41,127,74,74,74,74
460 DATA 9,48,145,43,200,177,43,240,60
470 DATA 189,9,220,41,15,9,48,145,43,202
480 DATA 240,12,200,177,43,240,43,169,58
490 DATA 145,43,200,208,210,200,169,32
500 DATA 145,43,200,173,11,220,48,5,169
510 DATA 65,208,3,234,169,80,145,43,200
520 DATA 169,77,145,43,200,177,43,240,6
530 DATA 169,32,145,43,208,245,173,8,220
540 DATA 104,168,104,170,169,0,208,4,104
550 DATA 76,0,0,206,197,3,104,40,76,0,0